﻿Public Class ThayDoi_PLThuChi
    Public Delegate Sub ClickDongButtonHandle()
    Public Delegate Sub ClickLuuButtonHandle(ByVal plThuChi As PLThuChi, ByVal loai As Integer)
    Public Event SuKienClickButtonDong As ClickDongButtonHandle
    Public Event SuKienClickButtonLuu As ClickLuuButtonHandle
    Public Flag As Integer = 0
    Public DSTemp As DataTable
    Public id As Integer
    Public id_user As Integer


    Private Sub bt_dong_Click(sender As System.Object, e As System.EventArgs) Handles bt_dong.Click
        RaiseEvent SuKienClickButtonDong()
    End Sub

    Private Sub bt_luu_Click(sender As System.Object, e As System.EventArgs) Handles bt_luu.Click
        If Not String.IsNullOrEmpty(tb_ten.Text) Then
            If Flag = 0 Then
                Dim result As Integer = PhanLoaiThuChiDAO.InsertNewItem(tb_ten.Text, id_user)
                If result > 0 Then
                    Dim plmoi As PLThuChi = New PLThuChi
                    plmoi.id = result
                    plmoi.ten = tb_ten.Text
                    plmoi.id_user = id_user
                    plmoi.username = tb_user.Text
                    RaiseEvent SuKienClickButtonLuu(plmoi, 0)
                Else
                    MessageBox.Show("Có lỗi khi thêm dữ liệu vào Database", "Thông Báo", MessageBoxButtons.OK)
                End If
            ElseIf Flag = 1 Then
                For i As Integer = 0 To DSTemp.Rows.Count() - 1
                    If (tb_ten.Text = DSTemp.Rows(i).Item(1)) Then
                        MessageBox.Show("Item này đã tồn tại, vui lòng đổi tên khác hoặc đóng form", "Thông Báo", MessageBoxButtons.OK)
                        tb_ten.Focus()
                        Return
                    End If
                Next
                Dim pl As PLThuChi = New PLThuChi
                pl.id = id
                pl.ten = tb_ten.Text
                pl.id_user = id_user
                pl.username = tb_user.Text
                Dim result As Integer = PhanLoaiThuChiDAO.UpdateItem(pl)
                If result > 0 Then
                    RaiseEvent SuKienClickButtonLuu(pl, 1)
                Else
                    MessageBox.Show("Có lỗi khi thêm dữ liệu vào Database", "Thông Báo")
                End If
            End If
        Else
            MessageBox.Show("Tên Phân Loại  Thu Chi không được để trống", "Thông Báo", MessageBoxButtons.OK)
            tb_ten.Focus()
        End If
    End Sub
End Class
